home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 6 / 64er_Magazin_Sonderheft_06_86-06_1986_Markt__Technik_de_Disk_1_of_3_Side_B.d64 / koala-show v2.0 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  499b  |  30 lines
  1. 5 poke53281,0:printchr$(142)"[147][154]first disk"
  2. 7 poke198,0:wait198,1
  3. 10 pace=0
  4. 20 mode=1
  5. 30 speed=4
  6. 50 poke1000,pace
  7. 60 poke1001,speed
  8. 70 poke1002,mode
  9. 1000 fori=65to80
  10. 1010 sys57812"[129]pic "+chr$(i)+"*",8,1
  11. 1020 poke780,0
  12. 1030 sys65493
  13. 1500 ifpace=0thenpoke1000,rnd(0)*254+1
  14. 2000 sys4096*5
  15. 2500 poke198,0
  16. 3000 forj=0to500
  17. 3010 ifpeek(198)and1then3030
  18. 3020 nextj
  19. 3030 nexti
  20. 3100 forj=0to500
  21. 3110 ifpeek(198)and1then4000
  22. 3120 nextj
  23. 3500 poke198,0
  24. 4000 poke53265,27
  25. 4010 poke53270,200
  26. 4015 poke53272,21
  27. 4020 poke53281,0:print"[147]next disk"
  28. 4030 poke198,0:wait198,1
  29. 4040 run10
  30.